home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
comm
/
pwrpgp32.zip
/
POWERPGP.EXE
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1996-06-06
|
36KB
|
1,135 lines
object Form1: TForm1
Left = 239
Top = 152
Width = 629
Height = 439
Caption = 'PowerPGP Message Encryptor (32-bit)'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu1
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 16
object Bevel1: TBevel
Left = 0
Top = 24
Width = 621
Height = 349
Align = alClient
Shape = bsFrame
Style = bsRaised
end
object Label1: TLabel
Left = 18
Top = 44
Width = 195
Height = 19
AutoSize = False
Caption = 'Public Key To Use (To:)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 18
Top = 84
Width = 163
Height = 17
AutoSize = False
Caption = 'Message:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Image1: TImage
Left = 568
Top = 28
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image001.ico>}
end
object Label4: TLabel
Left = 418
Top = 28
Width = 150
Height = 33
Alignment = taRightJustify
AutoSize = False
Caption = 'Power PGP'
Font.Color = clGray
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 414
Top = 26
Width = 150
Height = 33
Alignment = taRightJustify
AutoSize = False
Caption = 'Power PGP'
Font.Color = clPurple
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Image2: TImage
Left = 392
Top = 28
Width = 32
Height = 32
AutoSize = True
Picture.Data = {<image002.ico>}
end
object Panel1: TPanel
Left = 32
Top = 288
Width = 558
Height = 68
BevelOuter = bvLowered
BevelWidth = 4
TabOrder = 1
object BitBtn5: TBitBtn
Left = 444
Top = 34
Width = 110
Height = 30
Hint = 'Exit the program'
Caption = 'E&xit'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 9
OnClick = BitBtn5Click
Kind = bkClose
Style = bsNew
end
object BitBtn3: TBitBtn
Left = 224
Top = 4
Width = 110
Height = 30
Hint = 'Cut message to clipboard'
Caption = '&Cut Message'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = CutMessageToClipboard1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333FF3333333333333003333333333333377F33333333333307
733333FFF333337773333C003333307733333777FF333777FFFFC0CC03330770
000077777FF377777777C033C03077FFFFF077FF77F777FFFFF7CC00000F7777
777077777777777777773CCCCC00000000003777777777777777333330030FFF
FFF03333F77F7F3FF3F7333C0C030F00F0F03337777F7F77373733C03C030FFF
FFF03377F77F7F3F333733C03C030F0FFFF03377F7737F733FF733C000330FFF
0000337777F37F3F7777333CCC330F0F0FF0333777337F737F37333333330FFF
0F03333333337FFF7F7333333333000000333333333377777733}
NumGlyphs = 2
Style = bsNew
end
object BitBtn2: TBitBtn
Left = 114
Top = 4
Width = 109
Height = 30
Hint = 'Decrypt current message'
Caption = '&Decrypt'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = BitBtn2Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5000555555555555577755555555555550B0555555555555F7F7555555555550
00B05555555555577757555555555550B3B05555555555F7F557555555555000
3B0555555555577755755555555500B3B0555555555577555755555555550B3B
055555FFFF5F7F5575555700050003B05555577775777557555570BBB00B3B05
555577555775557555550BBBBBB3B05555557F555555575555550BBBBBBB0555
55557F55FF557F5555550BB003BB075555557F577F5575F5555577B003BBB055
555575F7755557F5555550BB33BBB0555555575F555557F555555507BBBB0755
55555575FFFF77555555555700007555555555577777755555550000}
NumGlyphs = 2
Style = bsNew
end
object BitBtn1: TBitBtn
Left = 4
Top = 4
Width = 109
Height = 30
Hint = 'Encrypt current message'
Caption = '&Encrypt'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
0EEE333377777777777733330FF00FBFB0EE33337F37733F377733330F0BFB0B
FB0E33337F73FF73337733330FF000BFBFB033337F377733333733330FFF0BFB
FBF033337FFF733F333733300000BF0FBFB03FF77777F3733F37000FBFB0F0FB
0BF077733FF7F7FF7337E0FB00000000BF0077F377777777F377E0BFBFBFBFB0
F0F077F3333FFFF7F737E0FBFB0000000FF077F3337777777337E0BFBFBFBFB0
FFF077F3333FFFF73FF7E0FBFB00000F000077FF337777737777E00FBFBFB0FF
0FF07773FFFFF7337F37003000000FFF0F037737777773337F7333330FFFFFFF
003333337FFFFFFF7733333300000000033333337777777773330000}
NumGlyphs = 2
Style = bsNew
end
object BitBtn4: TBitBtn
Left = 334
Top = 4
Width = 110
Height = 30
Hint = 'Replace message with contents in clipboard'
Caption = 'Paste &Message'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = PasteMessageFromClipboard1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF
FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF
FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0
FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0
0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039
9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999
9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039
99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999
93337777FF777777733370000000073333333777777773333333}
NumGlyphs = 2
Style = bsNew
end
object BitBtn6: TBitBtn
Left = 4
Top = 34
Width = 109
Height = 30
Hint = 'Clear the message window'
Cap